home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS229B.dsk / HONEY HUNT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  5KB  |  70 lines
  1. 3  PRINT : HOME : ONERR  GOTO 790
  2. 4  GOSUB 10000: POKE 230,32: POKE  -16300,0
  3. 5  POKE  -16297,0: POKE  -16302,0: POKE  -16304,0: POKE 24576,77: GOTO 1000
  4. 10  POKE PD +1,2: POKE PD +2,0
  5. 11  FOR I = 0 TO 2: POKE PD -31 +I,16: POKE PD -28 +I,3: NEXT : POKE PD -25,96: POKE PD -24,107: POKE PD -23,120: CALL BE +185
  6. 13  REM 
  7. 15  CALL BE:R =  PEEK(KB): IF R >4  THEN  ON R -4 GOTO 27,25,15,90,50
  8. 20  GOTO 15
  9. 25  POP : CALL CS: PRINT D$"RUNMENU": END 
  10. 27 JJ =  PEEK(SD): POKE SD,32 +64 *(JJ = 32): POKE BE +132,48 *(JJ < >32): POKE BE +183,48 *(JJ < >32): GOTO 15
  11. 30  &  PRINT L,NN$ AT X%(J),Y%(J): RETURN 
  12. 40  POKE 769,20: POKE 768,255: CALL SD: RETURN 
  13. 42  POKE 768,90: POKE 769,8: CALL SD: FOR II = 1 TO 75: NEXT : RETURN 
  14. 44  FOR II = 0 TO 2: POKE 768, RND(1) *35 +15: POKE 769,7: CALL SD: NEXT : RETURN 
  15. 50  CALL CS: POKE 753,3: PRINT D$"RUNHELP": END 
  16. 90 J =  PEEK(FR): IF   NOT J  OR   NOT B%(J)  THEN 15
  17. 100 B%(J) = 0:J = J -(J >4): HCOLOR= 5: IF J = B%(0)  THEN 200
  18. 105  GOSUB 40: GOSUB 550: POKE 230,64: GOSUB 40: GOSUB 550: POKE 230,32: GOTO 13
  19. 200 J = B%(0): FOR I = 1 TO 2: GOSUB 550: GOSUB 42:NN$ = CC$: GOSUB 30: GOSUB 42: NEXT : FOR I = 1 TO 250: NEXT 
  20. 202  FOR I = 30 TO 2  STEP  -2: POKE 768,I: POKE 769,3: CALL SD: FOR J = 1 TO 10: NEXT : NEXT 
  21. 205  POKE BE +52,108: POKE BE +122,107: POKE PD +2,4: POKE PD +1,3 -(B%(0) >2):J =  ABS( PEEK(PD -30) *7 + PEEK(PD -27) -115)/2 +1: FOR I = 1 TO J +(J -14) *(B%(0) = 1  OR B%(0) = 3) -2 *(B%(0) = 2): CALL BE +28: NEXT : IF B%(0) = 2  OR B%(0) = 4  THEN 250
  22. 210  POKE PD +1,2 +(B%(0) >2):J =  ABS( PEEK(PD -30) *7 + PEEK(PD -27) -115)/2 +1: FOR I = 1 TO J -2 *(B%(0) = 3): CALL BE +28: NEXT 
  23. 250  REM 
  24. 255 Y = HU%(LL,0): FOR I = 1 TO 27 -2 *(LL >1) -2 *(LL = 3)  STEP 2: POKE 768,I: POKE 769,3: CALL SD: HPLOT HU%(LL,I),Y TO HU%(LL,I +1),Y:Y = Y -1: NEXT :LL = LL +1
  25. 260  POKE BE +52,102: POKE BE +122,101: RETURN 
  26. 500  FOR I = 26 TO 2  STEP  -1:J =  INT( RND(1) *I) +1:K = N%(I):N%(I) = N%(J):N%(J) = K: NEXT : RETURN 
  27. 550  POKE 24580,255:NN$ = "": GOSUB 30: POKE 24580,0: RETURN 
  28. 600  IF NN = 7  THEN  GOSUB 500:BN = 1:NN = 1
  29. 605  FOR I = 1 TO 7:B%(I) = N%(BN):BN = BN +1: IF BN >26  THEN BN = 1:NN = NN +1
  30. 610  NEXT :J1 = 1:J2 = 2:XC = XC +1: ON XC GOSUB 680,685,690,695
  31. 615  FOR J = 1 TO 4
  32. 616  IF J1 = I  THEN A$ =  CHR$(B%(J1) +64) + CHR$(B%(J1) +96):J1 = J1 +2:B%(0) = J:CC$ = A$: GOTO 620
  33. 617  IF J2 = I  THEN N = B%(J2):B%(J2) = B%(J1):B%(J1) = N:I = J1: GOTO 616
  34. 618 A$ =  CHR$(B%(J1) +64) + CHR$(B%(J2) +96):J1 = J1 +2:J2 = J2 +2
  35. 620  GOSUB 550:NN$ = A$: GOSUB 30: GOSUB 44: POKE 230,64: GOSUB 550:NN$ = A$: GOSUB 30: POKE 230,32: NEXT : RETURN 
  36. 680 I = 3: RETURN 
  37. 685 I = 6: RETURN 
  38. 690 I = 1: RETURN 
  39. 695 I = 3: RETURN 
  40. 790  POKE 672,9: POKE 673,9: POKE 674, PEEK(960): POKE 676, PEEK(47082): PRINT : PRINT D$"RUNHELLO"
  41. 1000 LL = 0
  42. 1010  GOSUB 600
  43. 1020  GOSUB 10: IF LL <4  THEN 1010
  44. 1030  HCOLOR= 7:J =  PEEK(PD +1):XX = (J = 3):X = 127 +20 *(J = 3):Y = 120: FOR I = X TO X +2  STEP 2: HPLOT I,Y TO I,130: NEXT 
  45. 1040  HCOLOR= 4: FOR I = 3 TO 0  STEP  -1:J = 27 -2 *(I >1) -2 *(I = 3):Y = HU%(I,0) - INT(J/2)
  46. 1045  FOR K = J TO 1  STEP  -2: POKE 768,K *(I +1): POKE 769,3: CALL SD: IF I = 3  AND J = K  THEN  HPLOT X +4 -5 *XX,Y TO HU%(I,K +1 -XX),Y: GOTO 1055
  47. 1047  HPLOT HU%(I,K),Y TO X -1,Y
  48. 1050  HPLOT X +4,Y TO HU%(I,K +1),Y
  49. 1055 Y = Y +1: NEXT : NEXT 
  50. 1060  HPLOT X,120 TO X,125: HPLOT X +2,120 TO X +2,125: HPLOT X,128 TO X,139: HPLOT X +2,128 TO X +2,139: HPLOT X,141 TO X,153: HPLOT X +2,141 TO X +2,153: HPLOT X,155 TO X,168: HPLOT X +2,155 TO X +2,168: HPLOT X,170 TO X,183: HPLOT X +2,170 TO X +2,183
  51. 1063  POKE BE +52,108: POKE BE +122,107
  52. 1065 K =  PEEK(PD +1): FOR I = 0 TO 3: FOR J = 1 TO 16: POKE PD +1,K: POKE PD +2,1 +3 *(I >1): CALL BE +28: NEXT : IF I < >1  THEN K = 2 +(K = 2)
  53. 1067  NEXT 
  54. 1070  POKE BE +52,102: POKE BE +122,101
  55. 1075  POKE 230,64: CALL UN,150,4: ON   NOT  PEEK(255) GOTO 790: POKE  -16299,0
  56. 1085  POKE 230,32: CALL UN,150,8: ON   NOT  PEEK(255) GOTO 790: FOR I = 1 TO 8000: NEXT : POKE  -16300,0: FOR I = 1 TO 4000: NEXT 
  57. 1090  GOTO 790
  58. 10000 UN = 24617:SD = UN +3:RA = UN +6:BE = 37228:WF = UN +27:KS = UN +28:KC = UN +29:PD = 37223:FR = PD +3:CS = 24595:KB = 752: DIM N%(26),B%(7),X%(4),Y%(4),HU%(3,28)
  59. 10005  POKE WF,255: POKE KS,10: POKE KC,10
  60. 10010 D$ =  CHR$(4): PRINT D$"BLOADB.HONEY HUNT"
  61. 10013  HOME : TEXT : IF  PEEK(960) = 119  THEN  POKE BE +132,0: POKE BE +183,0
  62. 10015  POKE 230,32: CALL UN,150,7: ON   NOT  PEEK(255) GOTO 790: POKE 230,64: CALL UN,150,7: ON   NOT  PEEK(255) GOTO 790
  63. 10022  POKE BE +52,102: POKE BE +122,101
  64. 10023  FOR I = 1 TO 26:N%(I) = I: NEXT :NN = 7: FOR I = 1 TO 4: READ X%(I),Y%(I): NEXT : FOR I = 0 TO 3: FOR J = 0 TO 28 -2 *(I >1) -2 *(I = 3): READ HU%(I,J): NEXT J,I
  65. 10025  HCOLOR= 5: RETURN 
  66. 11000  DATA 28,23,34,99,222,23,220,99
  67. 12000  DATA 183,93,186,93,186,93,185,93,185,93,185,94,185,94,185,94,185,94,185,95,184,96,183,97,182,98,181,99,180
  68. 12010  DATA 168,99,180,99,180,99,180,99,180,99,180,99,180,100,179,100,179,100,179,102,177,102,177,103,175,104,175,106,173
  69. 12020  DATA 153,108,171,108,171,108,171,108,171,108,171,108,171,108,171,109,170,109,170,110,169,111,168,112,167,113,166
  70. 12030  DATA 139,117,162,117,162,117,162,117,162,117,162,117,162,118,161,119,160,120,159,122,157,125,154,128,151